home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1996 / MacHack 1996.toast / Hacks / Hacks ’95 / Is Native / MyExitToShell.c < prev    next >
Encoding:
Text File  |  1995-06-24  |  503 b   |  28 lines  |  [TEXT/KAHL]
  1. //
  2. // File:    MyExitToShell.c
  3. // Project:    IsNative.π
  4. // Author:    Glenn L. Austin
  5. //            Symantec Corporation
  6. //
  7. #include "IsNative.h"
  8.  
  9. pascal void MyExitToShell(void)
  10. {
  11.     long        oldA4 = SetA4World();
  12.     MyAppInfo    *info = FindAppInfo(LMGetCurApName());
  13.     
  14.     if (info)
  15.     {
  16.         THz        cZone = GetZone();
  17.         long    ofs = info - *glob->appInfo;
  18.         char    c;
  19.         
  20.         SetZone(SystemZone());
  21.         Munger((Handle) glob->appInfo, ofs, nil, sizeof(MyAppInfo), &c, 0);
  22.         SetZone(cZone);
  23.     }
  24.     
  25.     (*glob->oldE2STrap)();
  26.     
  27.     RestoreA4World(oldA4);
  28. }